program testIfThenElseNested;

class testIfThenElseNested

BEGIN
   VAR aa, bb, cc: integer;

FUNCTION testIfThenElseNested;
BEGIN   
   aa := 3;
   cc := 6;

   PRINT cc;
   IF False THEN
      bb := 1
   ELSE
   BEGIN
      bb := 0;
      IF cc = 7 THEN
	 bb:= 2
      ELSE
	 bb := 5;
      cc := 4
   END;

   PRINT bb;
   PRINT cc
END
   
END   
.

